home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / communication / bbs / termv4.6 / extras / source / term-source.lha / SoundPanel.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-03-18  |  10.4 KB  |  446 lines
  1. /*
  2. **    SoundPanel.c
  3. **
  4. **    Editing panel for sound configuration
  5. **
  6. **    Copyright © 1990-1996 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. **
  9. **    :ts=4
  10. */
  11.  
  12. #ifndef _GLOBAL_H
  13. #include "Global.h"
  14. #endif
  15.  
  16. enum    {    GAD_BELL=1,GAD_CONNECT,GAD_DISCONNECT,GAD_GOOD_TRANSFER,
  17.             GAD_BAD_TRANSFER,GAD_RING,GAD_VOICE,GAD_ERROR,GAD_PRELOAD,GAD_VOLUME,
  18.             GAD_USE,GAD_LOAD,GAD_SAVE,GAD_CANCEL,GAD_DISCARD
  19.         };
  20.  
  21. BOOL
  22. SoundPanelConfig(struct SoundConfig *SoundConfig,STRPTR LastSound,BOOLEAN *ChangedPtr)
  23. {
  24.     struct SoundConfig BackupConfig;
  25.     struct LayoutHandle *Handle;
  26.     BOOL Changed = FALSE;
  27.  
  28.     CopyMem(SoundConfig,&BackupConfig,sizeof(struct SoundConfig));
  29.  
  30.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  31.         LH_LocaleHook,    &LocaleHook,
  32.         LH_ExitFlush,    FALSE,
  33.     TAG_DONE))
  34.     {
  35.         struct Window *PanelWindow;
  36.  
  37.         LT_New(Handle,
  38.             LA_Type,    VERTICAL_KIND,
  39.         TAG_DONE);
  40.         {
  41.             LT_New(Handle,
  42.                 LA_Type,    VERTICAL_KIND,
  43.             TAG_DONE);
  44.             {
  45.                 LT_New(Handle,
  46.                     LA_Type,        STRING_KIND,
  47.                     LA_LabelID,        MSG_SOUNDPANEL_BELL_GAD,
  48.                     LA_STRPTR,        BackupConfig . BellFile,
  49.                     LA_Chars,        30,
  50.                     LA_ID,            GAD_BELL,
  51.                     LAST_Picker,    TRUE,
  52.                     GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  53.                 TAG_DONE);
  54.  
  55.                 LT_New(Handle,
  56.                     LA_Type,        STRING_KIND,
  57.                     LA_LabelID,        MSG_SOUNDPANEL_CONNECT_GAD,
  58.                     LA_STRPTR,        BackupConfig . ConnectFile,
  59.                     LA_ID,            GAD_CONNECT,
  60.                     LAST_Picker,    TRUE,
  61.                     GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  62.                 TAG_DONE);
  63.  
  64.                 LT_New(Handle,
  65.                     LA_Type,        STRING_KIND,
  66.                     LA_LabelID,        MSG_SOUNDPANEL_DISCONNECT_GAD,
  67.                     LA_STRPTR,        BackupConfig . DisconnectFile,
  68.                     LA_ID,            GAD_DISCONNECT,
  69.                     LAST_Picker,    TRUE,
  70.                     GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  71.                 TAG_DONE);
  72.  
  73.                 LT_New(Handle,
  74.                     LA_Type,        STRING_KIND,
  75.                     LA_LabelID,        MSG_SOUNDPANEL_GOOD_TRANSFER_GAD,
  76.                     LA_STRPTR,        BackupConfig . GoodTransferFile,
  77.                     LA_ID,            GAD_GOOD_TRANSFER,
  78.                     LAST_Picker,    TRUE,
  79.                     GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  80.                 TAG_DONE);
  81.  
  82.                 LT_New(Handle,
  83.                     LA_Type,        STRING_KIND,
  84.                     LA_LabelID,        MSG_SOUNDPANEL_BAD_TRANSFER_GAD,
  85.                     LA_STRPTR,        BackupConfig . BadTransferFile,
  86.                     LA_ID,            GAD_BAD_TRANSFER,
  87.                     LAST_Picker,    TRUE,
  88.                     GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  89.                 TAG_DONE);
  90.  
  91.                 LT_New(Handle,
  92.                     LA_Type,        STRING_KIND,
  93.                     LA_LabelID,        MSG_SOUNDPANEL_RING_GAD,
  94.                     LA_STRPTR,        BackupConfig . RingFile,
  95.                     LA_ID,            GAD_RING,
  96.                     LAST_Picker,    TRUE,
  97.                     GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  98.                 TAG_DONE);
  99.  
  100.                 LT_New(Handle,
  101.                     LA_Type,        STRING_KIND,
  102.                     LA_LabelID,        MSG_SOUNDPANEL_VOICE_GAD,
  103.                     LA_STRPTR,        BackupConfig . VoiceFile,
  104.                     LA_ID,            GAD_VOICE,
  105.                     LAST_Picker,    TRUE,
  106.                     GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  107.                 TAG_DONE);
  108.  
  109.                 LT_New(Handle,
  110.                     LA_Type,        STRING_KIND,
  111.                     LA_LabelID,        MSG_ERROR_NOTIFICATION_SOUND_TXT,
  112.                     LA_STRPTR,        BackupConfig . ErrorNotifyFile,
  113.                     LA_ID,            GAD_ERROR,
  114.                     LAST_Picker,    TRUE,
  115.                     GTST_MaxChars,    MAX_FILENAME_LENGTH - 1,
  116.                 TAG_DONE);
  117.  
  118.                 LT_EndGroup(Handle);
  119.             }
  120.  
  121.             LT_New(Handle,
  122.                 LA_Type,    XBAR_KIND,
  123.             TAG_DONE);
  124.  
  125.             LT_New(Handle,
  126.                 LA_Type,    VERTICAL_KIND,
  127.             TAG_DONE);
  128.             {
  129.                 LT_New(Handle,
  130.                     LA_Type,            SliderType,
  131.                     LA_LabelID,            MSG_SOUNDPANEL_VOLUME_GAD,
  132.                     LA_BYTE,            &BackupConfig . Volume,
  133.                     LA_ID,                GAD_VOLUME,
  134.                     LA_Chars,            10,
  135.                     GTSL_Min,            0,
  136.                     GTSL_Max,            100,
  137.                     GTSL_LevelFormat,    "%ld%%",
  138.                 TAG_DONE);
  139.  
  140.                 LT_New(Handle,
  141.                     LA_Type,            CHECKBOX_KIND,
  142.                     LA_LabelID,            MSG_SOUNDPANEL_PRELOAD_GAD,
  143.                     LA_BYTE,            &BackupConfig . Preload,
  144.                     LA_ID,                GAD_PRELOAD,
  145.                 TAG_DONE);
  146.  
  147.                 LT_EndGroup(Handle);
  148.             }
  149.  
  150.             LT_New(Handle,
  151.                 LA_Type,VERTICAL_KIND,
  152.             TAG_DONE);
  153.             {
  154.                 LT_New(Handle,
  155.                     LA_Type,        XBAR_KIND,
  156.                     LAXB_FullSize,    TRUE,
  157.                 TAG_DONE);
  158.  
  159.                 LT_EndGroup(Handle);
  160.             }
  161.  
  162.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  163.                 LAGR_SameSize,    TRUE,
  164.                 LAGR_Spread,    TRUE,
  165.             TAG_DONE);
  166.             {
  167.                 LT_New(Handle,
  168.                     LA_Type,        BUTTON_KIND,
  169.                     LA_LabelID,        MSG_GLOBAL_USE_GAD,
  170.                     LA_ID,            GAD_USE,
  171.                     LABT_ReturnKey,    TRUE,
  172.                     LABT_ExtraFat,    TRUE,
  173.                 TAG_DONE);
  174.  
  175.                 LT_New(Handle,
  176.                     LA_Type,        BUTTON_KIND,
  177.                     LA_LabelID,        MSG_GLOBAL_LOAD_GAD,
  178.                     LA_ID,            GAD_LOAD,
  179.                 TAG_DONE);
  180.  
  181.                 LT_New(Handle,
  182.                     LA_Type,        BUTTON_KIND,
  183.                     LA_LabelID,        MSG_GLOBAL_SAVE_GAD,
  184.                     LA_ID,            GAD_SAVE,
  185.                 TAG_DONE);
  186.  
  187.                 LT_New(Handle,
  188.                     LA_Type,        BUTTON_KIND,
  189.                     LA_LabelID,        MSG_DISCARD_GAD,
  190.                     LA_ID,            GAD_DISCARD,
  191.                 TAG_DONE);
  192.  
  193.                 LT_New(Handle,
  194.                     LA_Type,        BUTTON_KIND,
  195.                     LA_LabelID,        MSG_GLOBAL_CANCEL_GAD,
  196.                     LA_ID,            GAD_CANCEL,
  197.                     LABT_EscKey,    TRUE,
  198.                 TAG_DONE);
  199.  
  200.                 LT_EndGroup(Handle);
  201.             }
  202.  
  203.             LT_EndGroup(Handle);
  204.         }
  205.  
  206.         if(PanelWindow = LT_Build(Handle,
  207.             LAWN_TitleID,        MSG_SOUNDPANEL_SOUND_PREFERENCES_TXT,
  208.             LAWN_IDCMP,            IDCMP_CLOSEWINDOW,
  209.             LAWN_HelpHook,        &GuideHook,
  210.             LAWN_Parent,        Window,
  211.             WA_DepthGadget,        TRUE,
  212.             WA_CloseGadget,        TRUE,
  213.             WA_DragBar,            TRUE,
  214.             WA_RMBTrap,            TRUE,
  215.             WA_Activate,        TRUE,
  216.             WA_SimpleRefresh,    TRUE,
  217.         TAG_DONE))
  218.         {
  219.             struct IntuiMessage        *Message;
  220.             BOOL                     Done = FALSE;
  221.             ULONG                     MsgClass;
  222.             UWORD                     MsgCode;
  223.             struct Gadget            *MsgGadget;
  224.             STRPTR                     DummyChar;
  225.             UBYTE                     DummyBuffer[MAX_FILENAME_LENGTH];
  226.             struct FileRequester    *FileRequest;
  227.  
  228.             GuideContext(CONTEXT_SOUND);
  229.  
  230.             PushWindow(PanelWindow);
  231.  
  232.             do
  233.             {
  234.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  235.                     break;
  236.  
  237.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  238.                 {
  239.                     MsgClass    = Message -> Class;
  240.                     MsgCode        = Message -> Code;
  241.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  242.  
  243.                     LT_ReplyIMsg(Message);
  244.  
  245.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  246.                     {
  247.                         Done = TRUE;
  248.                         Changed = FALSE;
  249.                     }
  250.  
  251.                     if(MsgClass == IDCMP_GADGETUP)
  252.                     {
  253.                         switch(MsgGadget -> GadgetID)
  254.                         {
  255.                             case GAD_USE:
  256.  
  257.                                 LT_UpdateStrings(Handle);
  258.  
  259.                                 CopyMem(&BackupConfig,SoundConfig,sizeof(struct SoundConfig));
  260.  
  261.                                 Changed = TRUE;
  262.  
  263.                                 if(ChangedPtr)
  264.                                     *ChangedPtr = TRUE;
  265.  
  266.                                 Done = TRUE;
  267.                                 break;
  268.  
  269.                             case GAD_DISCARD:
  270.  
  271.                                 Changed = Done = TRUE;
  272.  
  273.                                 if(ChangedPtr)
  274.                                     *ChangedPtr = FALSE;
  275.  
  276.                                 LastSound[0] = 0;
  277.  
  278.                                 strcpy(Config->SoundFileName,LastSound);
  279.  
  280.                                 break;
  281.  
  282.                             case GAD_CANCEL:
  283.  
  284.                                 Changed = FALSE;
  285.                                 Done = TRUE;
  286.                                 break;
  287.  
  288.                             case GAD_LOAD:
  289.  
  290.                                 SplitFileName(LastSound,&DummyChar,DummyBuffer);
  291.  
  292.                                 LT_LockWindow(PanelWindow);
  293.  
  294.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SOUNDPANEL_LOAD_SOUNDS_TXT),DummyBuffer,FilePart(LastSound),DummyBuffer,"#?.prefs",FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_LOAD_TXT),TRUE))
  295.                                 {
  296.                                     if(!ReadIFFData(DummyBuffer,&BackupConfig,sizeof(struct SoundConfig),ID_SOUN))
  297.                                         ShowError(PanelWindow,ERR_LOAD_ERROR,IoErr(),DummyBuffer);
  298.                                     else
  299.                                     {
  300.                                         Changed = TRUE;
  301.  
  302.                                         if(ChangedPtr)
  303.                                             *ChangedPtr = FALSE;
  304.  
  305.                                         strcpy(LastSound,DummyBuffer);
  306.  
  307.                                         strcpy(Config->SoundFileName,LastSound);
  308.  
  309.                                         LT_SetAttributes(Handle,GAD_BELL,
  310.                                             GTST_String,BackupConfig . BellFile,
  311.                                         TAG_DONE);
  312.  
  313.                                         LT_SetAttributes(Handle,GAD_CONNECT,
  314.                                             GTST_String,BackupConfig . ConnectFile,
  315.                                         TAG_DONE);
  316.  
  317.                                         LT_SetAttributes(Handle,GAD_DISCONNECT,
  318.                                             GTST_String,BackupConfig . DisconnectFile,
  319.                                         TAG_DONE);
  320.  
  321.                                         LT_SetAttributes(Handle,GAD_GOOD_TRANSFER,
  322.                                             GTST_String,BackupConfig . GoodTransferFile,
  323.                                         TAG_DONE);
  324.  
  325.                                         LT_SetAttributes(Handle,GAD_BAD_TRANSFER,
  326.                                             GTST_String,BackupConfig . BadTransferFile,
  327.                                         TAG_DONE);
  328.  
  329.                                         LT_SetAttributes(Handle,GAD_RING,
  330.                                             GTST_String,BackupConfig . RingFile,
  331.                                         TAG_DONE);
  332.  
  333.                                         LT_SetAttributes(Handle,GAD_VOICE,
  334.                                             GTST_String,BackupConfig . VoiceFile,
  335.                                         TAG_DONE);
  336.  
  337.                                         LT_SetAttributes(Handle,GAD_ERROR,
  338.                                             GTST_String,BackupConfig . ErrorNotifyFile,
  339.                                         TAG_DONE);
  340.  
  341.                                         LT_SetAttributes(Handle,GAD_PRELOAD,
  342.                                             GTCB_Checked,BackupConfig . Preload,
  343.                                         TAG_DONE);
  344.  
  345.                                         LT_SetAttributes(Handle,GAD_VOLUME,
  346.                                             GTSL_Level,BackupConfig . Volume,
  347.                                         TAG_DONE);
  348.                                     }
  349.  
  350.                                     FreeAslRequest(FileRequest);
  351.                                 }
  352.  
  353.                                 LT_UnlockWindow(PanelWindow);
  354.  
  355.                                 break;
  356.  
  357.                             case GAD_SAVE:
  358.  
  359.                                 LT_UpdateStrings(Handle);
  360.  
  361.                                 SplitFileName(LastSound,&DummyChar,DummyBuffer);
  362.  
  363.                                 LT_LockWindow(PanelWindow);
  364.  
  365.                                 if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SOUNDPANEL_SAVE_SOUNDS_TXT),DummyBuffer,FilePart(LastSound),DummyBuffer,"#?.prefs",TRUE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SAVE_TXT),TRUE))
  366.                                 {
  367.                                     if(!WriteIFFData(DummyBuffer,&BackupConfig,sizeof(struct SoundConfig),ID_SOUN))
  368.                                         ShowError(PanelWindow,ERR_SAVE_ERROR,IoErr(),DummyBuffer);
  369.                                     else
  370.                                     {
  371.                                         strcpy(LastSound,DummyBuffer);
  372.  
  373.                                         strcpy(Config->SoundFileName,LastSound);
  374.  
  375.                                         if(ChangedPtr)
  376.                                             *ChangedPtr = FALSE;
  377.                                     }
  378.  
  379.                                     FreeAslRequest(FileRequest);
  380.                                 }
  381.  
  382.                                 LT_UnlockWindow(PanelWindow);
  383.  
  384.                                 break;
  385.  
  386.                             default:
  387.  
  388.                                 if(MsgGadget -> GadgetID >= GAD_BELL && MsgGadget -> GadgetID <= GAD_ERROR)
  389.                                 {
  390.                                     STRPTR Name = (STRPTR)LT_GetAttributes(Handle,MsgGadget -> GadgetID,TAG_DONE);
  391.  
  392.                                     if(MsgCode == '\r' && Name[0])
  393.                                     {
  394.                                         FindFile(PanelWindow,LT_GetString(Handle,MsgGadget -> GadgetID),NULL);
  395.  
  396.                                         if(BackupConfig . Volume)
  397.                                         {
  398.                                             struct SoundInfo *SoundInfo;
  399.  
  400.                                             LT_LockWindow(PanelWindow);
  401.  
  402.                                             if(SoundInfo = LoadSound(Name,FALSE))
  403.                                             {
  404.                                                 PlaySound(SoundInfo);
  405.  
  406.                                                 FreeSound(SoundInfo);
  407.                                             }
  408.  
  409.                                             LT_UnlockWindow(PanelWindow);
  410.                                         }
  411.                                     }
  412.                                 }
  413.  
  414.                                 break;
  415.                         }
  416.                     }
  417.  
  418.                     if(MsgClass == IDCMP_IDCMPUPDATE && MsgGadget -> GadgetID >= GAD_BELL && MsgGadget -> GadgetID <= GAD_ERROR)
  419.                     {
  420.                         SplitFileName((STRPTR)LT_GetAttributes(Handle,MsgGadget -> GadgetID,TAG_DONE),&DummyChar,DummyBuffer);
  421.  
  422.                         if(FileRequest = GetFile(PanelWindow,LocaleString(MSG_SELECT_SOUND_FILE_TXT),DummyBuffer,DummyChar,DummyBuffer,NULL,FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SELECT_TXT),TRUE))
  423.                         {
  424.                             if(DummyBuffer[0])
  425.                                 FindFile(PanelWindow,DummyBuffer,NULL);
  426.  
  427.                             LT_SetAttributes(Handle,MsgGadget -> GadgetID,
  428.                                 GTST_String,DummyBuffer,
  429.                             TAG_DONE);
  430.  
  431.                             FreeAslRequest(FileRequest);
  432.                         }
  433.                     }
  434.                 }
  435.             }
  436.             while(!Done);
  437.  
  438.             PopWindow();
  439.         }
  440.  
  441.         LT_DeleteHandle(Handle);
  442.     }
  443.  
  444.     return(Changed);
  445. }
  446.